| Matching Comments and Strings |
| File1 Line# |
File2 Line# |
Comment/String |
| 1 | 1 | MDS I/O DRIVERS FOR CP/M |
| 2 | 2 | VERSION 1.3 OCTOBER, 1976 |
| 3 | 3 | FOR RELOCATION |
| 5 | 5 | COPYRIGHT (C) 1976 |
| 6 | 6 | DIGITAL RESEARCH |
| 7 | 7 | BOX 579, PACIFIC GROVE CA. |
| 10 | 10 | CPM VERSION NUMBER |
| 14 | 14 | BASE OF CPM CONSOLE PROCESSOR |
| 15 | 15 | BASIC DOS (RESIDENT PORTION) |
| 16 | 16 | LENGTH (IN BYTES) OF CPM SYSTEM |
| 17 | 17 | NUMBER OF SECTORS TO LOAD |
| 18 | 18 | LOADER BIAS VALUE USED IN SYSGEN |
| 19 | 19 | NUMBER OF DISK TRACKS USED BY CP/M |
| 20 | 20 | ADDRESS OF LAST LOGGED DISK ON WARM START |
| 21 | 21 | DEFAULT BUFFER ADDRESS |
| 22 | 22 | MAX RETRIES ON DISK I/O BEFORE ERROR |
| 24 | 24 | PERFORM FOLLOWING FUNCTIONS |
| 25 | 25 | BOOT COLD START |
| 26 | 26 | WBOOT WARM START (SAVE I/O BYTE) |
| 27 | 27 | (BOOT AND WBOOT ARE THE SAME FOR MDS) |
| 28 | 28 | CONST CONSOLE STATUS |
| 29 | 29 | REG-A = 00 IF NO CHARACTER READY |
| 30 | 30 | REG-A = FF IF CHARACTER READY |
| 31 | 31 | CONIN CONSOLE CHARACTER IN (RESULT IN REG-A) |
| 32 | 32 | CONOUT CONSOLE CHARACTER OUT (CHAR IN REG-C) |
| 33 | 33 | LIST LIST OUT (CHAR IN REG-C) |
| 34 | 34 | PUNCH PUNCH OUT (CHAR IN REG-C) |
| 35 | 35 | READER PAPER TAPE READER IN (RESULT TO REG-A) |
| 36 | 36 | HOME MOVE TO TRACK 00 |
| 38 | 38 | (THE FOLLOWING CALLS SET-UP THE IO PARAMETER BLOCK FOR THE |
| 39 | 39 | MDS, WHICH IS USED TO PERFORM SUBSEQUENT READS AND WRITES) |
| 40 | 40 | SELDSK SELECT DISK GIVEN BY REG-C (0,1,2...) |
| 41 | 41 | SETTRK SET TRACK ADDRESS (6,...76) FOR SUBSEQUENT READ/WRITE |
| 42 | 42 | SETSEC SET SECTOR ADDRESS (1,...,26) FOR SUBSEQUENT READ/WRITE |
| 43 | 43 | SETDMA SET SUBSEQUENT DMA ADDRESS (INITIALLY 80H) |
| 45 | 45 | (READ AND WRITE ASSUME PREVIOUS CALLS TO SET UP THE IO PARAMETER |
| 46 | 46 | READ READ TRACK/SECTOR TO PRESET DMA ADDRESS |
| 47 | 47 | WRITE WRITE TRACK/SECTOR FROM PRESET DMA ADDRESS |
| 49 | 49 | JUMP VECTOR FOR INDIVIDUAL ROUTINES |
| 68 | 68 | END OF CONTROLLER - INDEPENDENT CODE, THE REMAINING SUBROUTINES |
| 69 | 69 | ARE TAILORED TO THE PARTICULAR OPERATING ENVIRNOMENT, AND ML |
| 70 | 70 | BE ALTERED FOR ANY SYSTEM WHICH DIFFERS FROM THE INTEL MDS |
| 72 | 72 | THE FOLLOWING CODE ASSUMES THE MDS MONITOR EXISTS AT 0FB80H |
| 73 | 73 | AND USES THE I/O SUBROUTINES WITHIN THE MONITOR |
| 75 | 75 | WE ALSO ASSUME THE MDS SYSTEM HAS TWO DISK DRIVES AVAILABLE |
| 76 | 76 | NUMBER OF DRIVES AVAILABLE |
| 77 | 77 | INTERRUPT REVERT PORT |
| 78 | 78 | INTERRUPT MASK PORT |
| 79 | 79 | INTERRUPT CONTROL PORT |
| 80 | 80 | ENABLE RST 0(WARM BOOT), RST 7 (MON |
| 82 | 82 | MDS MONITOR EQUATES |
| 83 | 83 | MDS MONITOR |
| 84 | 84 | RESTART MONB0 (DISK SELECT ERROR) |
85
227 | 85
227 | CONSOLE CHARACTER TO REG-A |
| 86 | 86 | READER IN TO REG-A |
| 87 | 87 | CONSOLE CHAR FROM C TO CONSOLE OUT |
| 88 | 88 | PUNCH CHAR FROM C TO PUNCH DEVICE |
| 89 | 89 | LIST FROM C TO LIST DEVICE |
| 90 | 90 | CONSOLE STATUS OO/FF TO REGISTER A |
| 92 | 92 | DISK PORTS AND COMMANDS |
| 93 | 93 | BASE OF DISK COMMAND IO PORTS |
| 94 | 94 | DISK STATUS (INPUT) |
| 95 | 95 | RESULT TYPE (INPUT) |
| 96 | 96 | RESULT BYTE (INPUT) |
| 98 | 98 | IOPB LOW ADDRESS (OUTPUT) |
| 99 | 99 | IOPB HIGH ADDRESS (OUTPUT) |
| 101 | 101 | READ FUNCTION |
| 102 | 102 | WRITE FUNCTION |
| 103 | 103 | RECALIBRATE DRIVE |
| 104 | 104 | I/O FINISHED MASK |
105
341 | 105
341 | CARRIAGE RETURN |
106
343 | 106
343 | LINE FEED |
| 108 | 108 | SIGNON MESSAGE, XXK CP/M VERS Y.Y |
| 110 | 110 | 00K CP/M VERS |
| 114 | 114 | PRINT SIGNON MESSAGE AND GO TO DOS |
| 117 | 117 | PRINT MESSAGE |
| 118 | 118 | CLEAR ACCUMULATOR |
| 119 | 119 | SET INITIALLY TO DISK A |
| 120 | 120 | GO TO CP/M |
| 123 | 123 | LOADER ON TRACK 0, SECTOR 1, WHICH WILL BE SKIPPED FOR WARM |
| 124 | 124 | READ CP/M FROM DISK - ASSUMING THERE IS A 128 BYTE COLD START |
| 125 | 125 | START |
| 127 | 127 | USING DMA - THUS 80 THRU FF AVAILABLE FOR STACK |
| 129 | 129 | MAX RETRIES |
| 131 | 131 | ENTER HERE ON ERROR RETRIES |
| 132 | 132 | SET DMA ADDRESS TO START OF DISK SYSTEM |
| 134 | 134 | START READING SECTOR 2 |
| 136 | 136 | START READING TRACK 0 |
| 138 | 138 | START WITH DISK 0 |
| 139 | 139 | CHANGES DISKN TO 0 |
| 141 | 141 | READ SECTORS, COUNT NSECTS TO ZERO |
| 142 | 142 | IO-ERROR COUNT |
| 144 | 144 | READ NEXT SECTOR |
| 145 | 145 | SAVE SECTOR COUNT |
| 147 | 147 | RETRY IF ERRORS OCCUR |
| 148 | 148 | INCREMENT DMA ADDRESS |
| 149 | 149 | SECTOR SIZE |
| 150 | 150 | INCREMENTED DMA ADDRESS IN HL |
| 152 | 152 | READY FOR CALL TO SET DMA |
| 154 | 154 | SECTOR NUMBER JUST READ |
| 155 | 155 | READ LAST SECTOR? |
| 157 | 157 | MUST BE SECTOR 26, ZERO AND GO TO NEXT TRACK |
| 158 | 158 | GET TRACK TO REGISTER A |
160
164 | 160
164 | READY FOR CALL |
| 162 | 162 | CLEAR SECTOR NUMBER |
| 163 | 163 | TO NEXT SECTOR |
| 166 | 166 | RECALL SECTOR COUNT |
| 167 | 167 | DONE? |
| 169 | 169 | DONE WITH THE LOAD, RESET DEFAULT BUFFER ADDRESS |
| 170 | 170 | (ENTER HERE FROM COLD START BOOT) |
| 171 | 171 | ENABLE RST0 AND RST 7 |
| 173 | 173 | INITIALIZE COMMAND |
| 176 | 176 | CLEARED |
| 177 | 177 | RST0 AND RST7 BITS ON |
| 180 | 180 | INTERRUPT CONTROL |
| 182 | 182 | SET DEFAULT BUFFER ADDRESS TO 8OH |
| 186 | 186 | RESET MONITOR ENTRY POINTS |
| 190 | 190 | JMP WBOOT AT LOCATION 00 |
| 193 | 193 | JMP BDOS AT LOCATION 5 |
| 194 | 194 | JMP TO MON60 (MAY HAVE BEEN CHANGED BY DDT) |
| 197 | 197 | LEAVE IOBYTE SET |
| 198 | 198 | PREVIOUSLY SELECTED DISK WAS B, SEND PARAMETER TO CPM |
| 200 | 200 | LOOKS LIKE A SINGLE PARAMETER TO CPM |
| 204 | 204 | ERROR CONDITION OCCURRED, PRINT MESSAGE AND RETRY |
| 206 | 206 | RECALL COUNTS |
| 209 | 209 | TRY AGAIN |
| 214 | 214 | OTHERWISE TOO MANY RETRIES |
217
419 | 217
419 | FOR ANOTHER TRY |
| 220 | 220 | CANNOT BOOT |
| 223 | 223 | CONSOLE STATUS TO REG-A |
224
256
260
264 | 224
256
260
264 | (EXACTLY THE SAME AS MDS CALL) |
| 229 | 229 | REMOVE PARITY BIT |
| 232 | 232 | CONSOLE CHARACTER FROM C TO CONSOLE OUT |
| 233 | 233 | SAME AS MDS CALL, BUT WAIT FOR SLOW CONSOLES ON LINE FEED |
| 234 | 234 | GET CHARACTER TO ACCUM |
| 235 | 235 | END OF LINE? |
| 236 | 236 | SAVE CONDITION FOR LATER |
| 237 | 237 | SEND THE CHARACTER (MAY BE LINE FEED) |
| 239 | 239 | RETURN IF IT WASN'T A LINE FEED |
| 241 | 241 | WAIT 13 CHARACTER TIMES (AT 2400 BAUD) FOR LINE FEED TO HAPPEN |
| 242 | 242 | (THIS WORKS OUT TO ABOUT 50 MILLISECS) |
| 243 | 243 | NUMBER OF MILLISECS TO WAIT |
| 245 | 245 | COUNTER TO CONTROL 1 MILLISEC LOOP |
| 247 | 247 | 1 CYCLE = .5 USEC |
| 248 | 248 | 10 CYCLES= 5.5 USEC |
| 249 | 249 | ----------- |
| 250 | 250 | = 5.5 USEC PER LOOP* 182 = 1001 USEC |
| 252 | 252 | FOR ANOTHER LOOP |
| 255 | 255 | LIST DEVICE OUT |
| 259 | 259 | PUNCH DEVICE OUT |
| 263 | 263 | READER CHARACTER IN TO REG-A |
| 267 | 267 | MOVE TO HOME POSITION |
| 268 | 268 | TREAT AS TRACK 00 SEEK |
| 272 | 272 | SELECT DISK GIVEN BY REGISTER C |
| 273 | 273 | CP/M HAS CHECKED FOR DISK SELECT 0 ON 1, BUT WE MAY HAVE |
| 274 | 274 | A SINGLE DRIVE MDS SYSTEM, SO CHECK AGAIN AND GIVE ERROR |
| 275 | 275 | BY CALLING MON80 |
| 277 | 277 | TOO LARGE? |
| 278 | 278 | GIVES $ADDR MESSAGE AT CONSOLE |
| 284 | 284 | UNIT NUMBER IN POSITION |
| 285 | 285 | SAVE IT |
| 286 | 286 | IO FUNCTION |
| 288 | 288 | MASK OUT DISK NUMBER |
| 289 | 289 | MASK IN NEW DISK NUMBER |
| 290 | 290 | SAVE IT IN IOPB |
| 294 | 294 | SET TRACK ADDRESS GIVEN BY C |
| 299 | 299 | SET SECTOR NUMBER GIVEN BY C |
| 304 | 304 | SET DMA ADDRESS GIVEN BY REGS B,C |
| 310 | 310 | READ NEXT DISK RECORD (ASSUMING DISK/TRK/SEC/DMA SET) |
| 311 | 311 | SET TO READ FUNCTION |
| 313 | 313 | PERFORM READ FUNCTION |
| 314 | 314 | MAY HAVE ERROR SET IN REG-A |
| 317 | 317 | DISK WRITE FUNCTION |
| 319 | 319 | SET TO WRITE FUNCTION |
| 321 | 321 | MAY HAVE ERROR SET |
| 324 | 324 | UTILITY SUBROUTINES |
| 325 | 325 | PRINT MESSAGE AT H,L TO 0 |
| 327 | 327 | ZERO? |
| 329 | 329 | MORE TO PRINT |
| 337 | 337 | ERROR MESSAGE ADDRESSES BY H,L |
| 339 | 339 | ERROR MESSAGE WRITTEN, WAIT FOR RESPONSE FROM CONSOLE |
| 345 | 345 | MAY BE RETURNING FOR ANOTHER RETRY |
| 348 | 348 | SET FUNCTION FOR NEXT I/O (COMMAND IN REG-C) |
| 349 | 349 | IO FUNCTION ADDRESS |
| 350 | 350 | GET IT TO ACCUMULATOR FOR MASKING |
| 351 | 351 | REMOVE PREVIOUS COMMAND |
| 352 | 352 | SET TO NEW COMMAND |
| 353 | 353 | REPLACED IN IOPB |
| 357 | 357 | MAX RETRIES BEFORE PERM ERROR |
| 359 | 359 | START THE I/O FUNCTION AND WAIT FOR COMPLETION |
| 361 | 361 | CLEARS THE CONTROLLER |
| 363 | 363 | LOW ADDRESS FOR IOPB |
| 364 | 364 | TO THE CONTROLLER |
| 365 | 365 | HIGH ADDRESS FOR IOPB |
| 366 | 366 | TO THE CONTROLLER, STARTS OPERATION |
| 369 | 369 | WAIT FOR COMPLETION |
| 370 | 370 | READY? |
| 373 | 373 | CHECK IO COMPLETION OK |
| 374 | 374 | MUST BE I/O COMPLETE (00) UNLINKED |
| 375 | 375 | 00 UNLINKED I/O COMPLETE, 01 LINKED I/O COMPLETE (NOT USED) |
| 376 | 376 | 10 DISK STATUS CHANGED 11 (NOT USED) |
| 377 | 377 | READY STATUS CHANGE? |
| 380 | 380 | MUST BE BO IN THE ACCUMULATOR |
| 382 | 382 | SOME OTHER CONDITION, RETRY |
| 384 | 384 | CHECK I/O ERROR BITS |
| 387 | 387 | UNIT NOT READY |
| 389 | 389 | ANY OTHER ERRORS? (DELETED DATA 0K) |
| 392 | 392 | READ OR WRITE IS OK, ACCUMULATOR CONTAINS ZERO |
| 395 | 395 | NOT READY, TREAT AS ERROR FOR NOW |
| 396 | 396 | CLEAR RESULT BYTE |
| 399 | 399 | RETURN HARDWARE MALFUNCTION (CRC, TRACK, SEEK, ETC.) |
| 400 | 400 | THE MDS CONTROLLER HAS RETURNED A BIT IN EACH POSITION |
| 401 | 401 | OF THE ACCUMULATOR, CORRESPONDING TO THE CONDITIONS, |
| 402 | 402 | 0 - DELETED DATA (ACCEPTED AS OK ABOVE) |
| 403 | 403 | 1 - CRC ERROR |
| 404 | 404 | 2 - SEEK ERROR |
| 405 | 405 | 3 - ADDRESS ERROR (HARDWARE MALFUNCTION) |
| 406 | 406 | 4 - DATA OVER/UNDER FLOW (HARDWARE MALFUNCTION) |
| 407 | 407 | 5 - WRITE PROTECT (TREATED AS NOT READY) |
| 408 | 408 | 6 - WRITE ERROR (HARDWARE MALFUNCTION) |
| 409 | 409 | 7 - NOT READY |
| 410 | 410 | (ACCUMULATOR BITS ARE NUMBERED 7 6 5 4 3 2 1 0) |
| 412 | 412 | IT MAY BE USEFUL TO FILTER OUT THE VARIOUS CONDITIONS, |
| 413 | 413 | BUT WE WILL GET A PERMANENT ERROR MESSAGE IF IT IS NOT |
| 414 | 414 | RECOVERABLE. IN ANY CASE, THE NOT READY CONDITION IS |
| 415 | 415 | TREATED AS A SEPARATE CONDITION FOR LATER IMPROVEMENT |
| 417 | 417 | REGISTER C CONTAINS RETRY COUNT, DECREMENT 'TIL ZERO |
| 421 | 421 | CANNOT RECOVER FROM ERROR |
| 422 | 422 | ERROR CODE |
| 426 | 426 | DATA AREAS (MUST BE IN RAM) |
| 427 | 427 | IO PARAMETER BLOCK |
| 428 | 428 | NORMAL I/O OPERATION |
| 429 | 429 | IO FUNCTION. INITIAL READ |
| 430 | 430 | NUMBER OF SECTORS TO READ |
| 431 | 431 | TRACK NUMBER |
| 432 | 432 | SECTOR NUMBER |
| 433 | 433 | IO ADDRESS |
